home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
jazclib1.arc
/
CLS.C
next >
Wrap
Text File
|
1986-07-20
|
678b
|
29 lines
/*
┌────────────────────────────────────────────────────────────────────────────┐
│Cls.c │
│Clears the screen with the specified attribute │
│ │
│Usage: │
│#define BLUE 31 │
│. │
│. │
│. │
│cls(BLUE); │
│ │
│(C) Jazsoft Software by Jack A. Zucker (301) 794-5950 15:35:24 4/6/1986 │
└────────────────────────────────────────────────────────────────────────────┘
*/
#include <jaz.h>
cls(fattr)
int fattr;
{
TREG wreg;
wreg.x.ax = 0x600;
wreg.h.bh = fattr;
wreg.x.cx = 0;
wreg.x.dx = 0x184f;
intr(0x10,&wreg);
}